home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Software of the Month Club / Amiga Latest & Greatest Volume 226 (1995)(SOMC)(Disk 2 of y)[SMCxxxC30Ix].zip / Amiga Latest & Greatest Volume 226 (1995)(SOMC)(Disk 2 of y)[SMCxxxC30Ix].adf / BlocNotes / Install < prev    next >
Text File  |  1996-02-09  |  4KB  |  144 lines
  1. ; $VER:Install script for BlocNotes
  2.  
  3. (set Need2 "\nBlocNotes need at least OS2.04")
  4. (if (< (/ (getversion) 65536) 37)
  5.   (abort Need2)
  6. )
  7.  
  8. (set CatHelp "You can have blocnotes localized to a particular language.")
  9. (set POPKEYHelp "With this hotkey you can popup Blocnotes main window.")
  10. (set NOTEKEYHelp "With this hotkey you can open a new note.")
  11. (set DIRHelp "If you specify a path, a new directory called NOTES will be created in it.\nThe notes will be stored in this directory.")
  12. (set SCNHelp "With this library installed, Blocnotes have a better control over public screen.\nIt's recommended to install it.")
  13. (set ASKDIRHelp "If you install blocnotes in SYS:WBStartup (default), it will be launched automatically at every startup.\nIf you want only to test BN, copy it in another place, changing the destination directory")
  14. (set REXXHelp "These script enhance BlocNotes with new or more particular functions")
  15. (set GUIDEHelp "This is the doc of blocnotes in .guide format")
  16.  
  17. (set MySou (pathonly @icon) )
  18.  
  19. (set CompleteDest
  20.    (askdir
  21.       (prompt "\nSelect a path where to install BlocNotes main file")
  22.       (help ASKDIRHelp)
  23.       (default "SYS:WBStartup")
  24.    )
  25. )
  26.  
  27. (copyfiles
  28.    (prompt "Coping Blocnotes")
  29.    (source MySou)
  30.    (infos)
  31.    (dest CompleteDest)
  32.    (choices "BlocNotes")
  33. )
  34.  
  35. ; Guide file.
  36. ; *************************
  37. (set GuideDest
  38.    (askdir
  39.       (prompt "\nSelect a directory where to install BlocNotes.guide file.\n")
  40.       (help @askdir-help)
  41.       (default "AMIGAGUIDE:")
  42.    )
  43. )
  44. (copyfiles
  45.    (prompt "Coping Blocnotes.guide")
  46.    (help GUIDEHelp)
  47.    (source MySou)
  48.    (infos)
  49.    (dest GuideDest)
  50.    (confirm)
  51.    (choices "BlocNotes.guide")
  52. )
  53.  
  54. ; Rexx files
  55. ; *************************
  56. (set RexxDest
  57.    (askdir
  58.       (prompt "\nSelect a directory where to copy arexx scipts.\n")
  59.       (help @askdir-help)
  60.       (default "REXX:")
  61.    )
  62. )
  63.  
  64. (copyfiles
  65.    (prompt "Coping arexx scripts")
  66.    (help REXXHelp)
  67.    (source MySou)
  68.    (dest RexxDest)
  69.    (confirm)
  70.    (choices "scroller.rexx" "shownote.rexx")
  71. )
  72.  
  73. (copylib
  74.    (prompt "Coping screennotify.library")
  75.    (help SCNHelp)
  76.    (source (tackon MySou "libs/screennotify.library"))
  77.    (dest "LIBS:")
  78.    (optional nofail)
  79.    (confirm)
  80. )
  81.  
  82. (set LangBit
  83.    (askoptions
  84.       (prompt "\nDo yo want to install languages")
  85.       (help CatHelp)
  86.       (choices "italiano")
  87.       (default 1)
  88.    )
  89. )
  90. (if (IN LangBit 0)
  91.    (copyfiles
  92.       (prompt "Coping the catalog 'italiano'")
  93.       (help @copyfiles-help)
  94.       (source (tackon MySou "catalogs/italiano/blocnotes.catalog") )
  95.       (dest "locale:catalogs/italiano/")
  96.    )
  97. )
  98.  
  99. (set DestName (tackon CompleteDest "BlocNotes"))
  100.  
  101. (Set Hotkey (askstring
  102.             (prompt "Insert Hotkey for interface popup")
  103.             (default "control alt n")
  104.             (help POPKEYHelp)
  105.         )
  106. )
  107. (tooltype
  108.    (settooltype "CX_POPKEY" HotKey)
  109.    (dest DestName)
  110. )
  111.  
  112. (Set Notekey (askstring
  113.             (prompt "Insert Hotkey for notes popup")
  114.             (default "control escape")
  115.             (help NOTEKEYHelp)
  116.         )
  117. )
  118. (tooltype
  119.    (settooltype "NOTESKEY" NoteKey)
  120.    (dest DestName)
  121. )
  122.  
  123. (set Direct
  124.    (askdir
  125.       (prompt "\nSelect a path in which a directory called NOTES will be created.\n(The notes will be stored here.)")
  126.       (help DIRHelp)
  127.       (default "SYS:")
  128.    )
  129. )
  130.  
  131. (makedir (tackon Direct "NOTES"))
  132.  
  133. (tooltype
  134.    (settooltype "DIRECTORY" (tackon Direct "NOTES"))
  135.    (dest DestName)
  136. )
  137.  
  138.  
  139. (message "You can run the program and change other parameters directly in it.\nPlease read documentation for other options")
  140.  
  141. (set @default-dest CompleteDest )
  142.         (exit)
  143.  
  144.